Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/dbmap.dxr/00004_DB Pict Class.ls

Text File | 2000-01-27 | 3.3 KB | 163 lines

property pWindowName, pSpriteList, pMaxRect, pMinRect, pButtonList, pMediaName, pPictMember, pMemberList, pRolloverTextObj, pTitle, pPictRect, pBorderRectList, pCastLib

on new me
  pButtonList = [:]
  return me
end

on InitRollOverText me
  rolloverList = []
  setAt(rolloverList, getaProp(pSpriteList, #closeBox), 16)
  setAt(rolloverList, getaProp(pSpriteList, #PrintButton), 11)
  setAt(rolloverList, getaProp(pSpriteList, #SaveButton), 10)
  setAt(rolloverList, getaProp(pSpriteList, #MaxMinBox), 18)
  pRolloverTextObj = new(script("rollover text"), rolloverList)
end

on print me
  global gEnvironObj
  if not isMemoryAvailable("print the document") then
    exit
  end if
  TitleMember = the number of member "print title f"
  PictMember = GetPictMember(me)
  CopyRightMember = the number of member "copyright HRW"
  unLoad()
  doc = new(xtra("PrintOMatic"))
  if not objectp(doc) then
    alert("A problem was encountered while initializing the printer.")
    exit
  end if
  setLandscapeMode(doc, 0)
  pageW = 467
  pageH = 647
  set the textSize of member TitleMember to 14
  member(TitleMember).rect = rect(0, 0, pageW, 0)
  TitleH = member(TitleMember).height
  picth = member(PictMember).height
  CopyRightH = member(CopyRightMember).height
  setTextJust(doc, "centered")
  newPage(doc)
  setTextJust(doc, "centered")
  FrameBottom = TitleH + picth + 36
  newFrame(doc, rect(0, 0, pageW, FrameBottom), 0)
  append(doc, member(TitleMember), 1)
  append(doc, RETURN, 1)
  append(doc, RETURN, 1)
  append(doc, member(PictMember), 1)
  setTextJust(doc, "left")
  FrameTop = FrameBottom + 16
  FrameBottom = FrameTop + CopyRightH
  newFrame(doc, rect(0, FrameTop, pageW, FrameBottom), 1)
  append(doc, " ", 1)
  append(doc, RETURN, 1)
  drawText(doc, member(CopyRightMember).text, point(0, pageH))
  setDocumentName(doc, the text of field "print title f")
  if doJobSetup(doc) then
    print(doc)
  end if
  doc = 0
  return me
end

on save me
  xMember = GetPictMember(me)
  fileName = MakePlatformFileName(the text of field "title f" of castLib 1) & GetArtExtension()
  pathAndName = GetSavePathandName(fileName)
  if pathAndName <> EMPTY then
  end if
  return me
end

on doRolloverText me
  doRolloverText(pRolloverTextObj)
end

on SetButtonList me, xList
  pButtonList = xList
end

on GetButtonList me
  return pButtonList
end

on SetPictMember me, xName
  pPictMember = xName
end

on GetPictMember me
  return pPictMember
end

on setTitle me, xName
  pTitle = xName
end

on getTitle me
  return pTitle
end

on SetPictRect me, xRect
  pPictRect = xRect
end

on GetPictRect me
  return pPictRect
end

on SetBorderRect me, xList
  pBorderRectList = xList
end

on GetBorderRect me, size
  return getAt(pBorderRectList, size)
end

on SetMemberList me, list
  pMemberList = list
end

on GetMemberList me
  return pMemberList
end

on SetSpriteList me, list
  pSpriteList = list
end

on GetSpriteList me
  return pSpriteList
end

on SetCastLib me, xName
  pCastLib = xName
end

on GetCastLib me
  return pCastLib
end

on SetMediaName me, xName
  pMediaName = xName
end

on GetMediaName me
  return pMediaName
end

on condemn me
  pButtonList = CondemnList(me, pButtonList)
  pRolloverTextObj = 0
  return me
end

on CondemnList me, xList
  MaxCount = count(xList)
  repeat with rc = 1 to MaxCount
    xObj = getAt(xList, rc)
    condemn(xObj)
    setAt(xList, rc, 0)
  end repeat
  return 0
end